home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 29
/
Commodore_Disc_29_19xx_-_de.d64
/
order 4.8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
501b
|
14 lines
10 rem faerbe screen
20 sys49152,0,0,1
30 rem lese raumschiffform
40 for x=0 to 62:read q:poke 192*64+x,q:next x
50 rem daten fuer raumer
60 data 0,85,0,1,107,192,5,171,240,5,171,240,21,170,252,22,170,252
70 data 22,235,188,22,235,180,245,235,95,239,215,251,234,255,171,250,170
80 data 175,31,170,244,21,255,92,22,215,188,22,235,252,5,235,240,5,171,240
90 data 1,111,192,0,95,0,0,0,0
100 rem setze basisparameter fuer farbe u.s.w
110 sys 49304,12,0,0,192,1,15,11,1
120 rem setze position und prioritaet
130 sys 50795,130,120,1